home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / parallel / pingpong < prev    next >
Text File  |  1992-04-11  |  367b  |  23 lines
  1. ping(0).
  2.  
  3. ping(Times):-
  4.     out(ping),
  5.     in(pong),
  6.     send_request__(writeln(ping)),
  7.     New_times is Times - 1,
  8.     ping(New_times).
  9.  
  10. pong(0).
  11.  
  12. pong(Times):-
  13.     in(ping),
  14.     out(pong),
  15.     send_request__(writeln(pong)),
  16.     New_times is Times - 1,
  17.     pong(New_times).
  18.  
  19. start(Pong_machine,Times):-
  20.     eval(Pong_machine,pong(Times),pingpong),
  21.     ping(Times).
  22.  
  23.